(* card.pas *)

program card;

type 
     info = record
	       tag   : boolean;
	       suit  : ShortString;
	       rank  : integer;
	       title : ShortString;
	    end;
var
   item : info = (tag:true; suit:'kier'; rank:12; title:'dziesiatka');

begin
   writeln(item.tag, ' ', item.suit, ' ', item.rank, ' ', item.title);
   writeln(SizeOf(item));
end.
